home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / AESSHEL2.S < prev    next >
Text File  |  1993-03-10  |  1KB  |  46 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*    04/05/89 -    v1.2
  7. ;*                Finally received confirmation for the proper definitions
  8. ;*                of shel_get/shel_put.  The (incorrect) definition of
  9. ;*                shel_get() was removed from aesshel1.b and defined
  10. ;*                properly here.
  11. ;*========================================================================
  12.  
  13.  
  14. ;*************************************************************************
  15. ;*
  16. ;* Shell library routines 2 of 2.
  17. ;*    These two routines are mostly likely to be used by a desk accessory
  18. ;*    functioning as a replacement for the control panel, so they are
  19. ;*    isolated from the other shell functions.
  20. ;*************************************************************************
  21.  
  22. ;-------------------------------------------------------------------------
  23. ; shel_get
  24. ; shel_put
  25. ;-------------------------------------------------------------------------
  26.  
  27.           globl     _shel_get
  28. _shel_get:
  29.           move.l    #$7A010101,d0       ; AControl  122,1,1,1
  30.           bra.b     shel_getput
  31.           globl     _shel_put
  32. _shel_put:
  33.           move.l    #$7B010101,d0       ; AControl  123,1,1,1
  34. shel_getput:
  35. ;          .cargs    #4,bufptr.l,buflen.w
  36.  
  37. bufptr            =    4
  38. buflen            =    8
  39.  
  40.           lea        bufptr(sp),a0     ; -> addrin
  41.           lea        buflen(sp),a1     ; -> intin
  42.           jmp        aes_do
  43.  
  44. ;          end of code
  45.  
  46.